home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / internet-tools / httpirl-log / httpirlogwb < prev   
Encoding:
Text File  |  1996-02-26  |  2.0 KB  |  76 lines
  1. .bra {
  2. .ket }
  3. ; $VER HTTPD Log Processor v0.2b    (c)1995 PirlAGA 
  4.  
  5. RequestChoice >nil: "PirlAGA HTTPD Log Processor v0.2b" "Welcome!   This is Just a Sample Script With ERRORS ! " "Continue"
  6.  
  7. RequestFile >env:filename PATTERN "#?.log" TITLE "Select File To Process" 
  8. RequestChoice >env:domain "PirlAGA HTTPD Log Processor v0.2b" "Domain Level ?" "1" "2" "3" "4" "5" "6" "7" "8" "9" "No Domain"
  9. RequestChoice >env:date "PirlAGA HTTPD Log Processor v0.2b" "Date Type ?" "Day/Month/Year" "Month/Year" "Year" "No Date"
  10. RequestChoice >env:band "PirlAGA HTTPD Log Processor v0.2b" "Time Bands Type ?" "1 Hour" "30 Mins" "15 Mins" "No Bands"
  11.  
  12. if $band EQ "60" 
  13.     set band=1
  14. endif
  15.  
  16. if $band EQ "30" 
  17.     set band=2
  18. endif
  19.  
  20. if $band EQ "15" 
  21.     set band=3
  22. endif
  23.  
  24. RequestChoice >nil: "PirlAGA HTTPD Log Processor v0.2b" "SORRY! With this script You cannot enter the PageBase" "Continue"
  25.  
  26. RequestChoice >env:nolog "PirlAGA HTTPD Log Processor v0.2b" "Disable Output File ?" "Yes" "- NO!-"
  27.  
  28. if $nolog EQ "1" 
  29.     set nolog="nolog"
  30.  
  31. else    set nolog=""
  32. endif
  33. echo $nolog
  34.  
  35. RequestChoice >env:noelap "PirlAGA HTTPD Log Processor v0.2b" "Disable Elapsed Time Count ?" "Yes" "NO"
  36.  
  37. if $noelap EQ "1" 
  38.     set noelap="noelapsed"
  39.  
  40. else    set noelap=""
  41. endif
  42.  
  43. RequestChoice >env:progress "PirlAGA HTTPD Log Processor v0.2b" "Enable Show Progress?" "Yes" "-NO-"
  44.  
  45.  
  46. if $progress EQ "1" 
  47.     set progress="progress"
  48.  
  49. else    set progress=""
  50. endif
  51.  
  52. RequestChoice >env:justhtml "PirlAGA HTTPD Log Processor v0.2b" ".HTML Files Only ?" "Yes" "NO"
  53.  
  54. if $justhtml EQ "1" 
  55.     set justhtml="justhtml"
  56.  
  57. else    set justhtml=""
  58. endif
  59.  
  60.  
  61. if $filename NOT EQ ""
  62. ;    httpirlog $filename "class=$domain" "date=$date" "band=$band" $nolog $noelap $progress $justhtml
  63.  
  64. echo     httpirlog $filename "class=$domain" "date=$date" "band=$band" $nolog $noelap $progress $justhtml
  65.  
  66. endif
  67.  
  68. delete >nil: env:domain
  69. delete >nil: env:date
  70. delete >nil: env:band
  71. delete >nil: env:filename
  72. delete >nil: env:nolog 
  73. delete >nil: env:noelap
  74. delete >nil: env:progress 
  75. delete >nil: env:justhtml 
  76.